home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / PRINTUSG.PAS < prev    next >
Pascal/Delphi Source File  |  1985-07-13  |  744b  |  34 lines
  1. Program UsingTest;
  2.  
  3. {
  4. This program demonstrates the use of the PrintUsing procedure.
  5.  
  6. Source: "PRINTUSING: Formatting Printed Strings", TUG Lines Volume I Issue 4
  7. Author: Bill Collins
  8. Application: CP/M-80, CP/M-86, MS-DOS, PC-DOS
  9. }
  10. Type
  11.           String80 = string[80];
  12.  
  13. var
  14.           Number : real;
  15.           Mask   : String80;
  16.           K      : integer;
  17.  
  18.      (*$I PRINTUSG.INC *)
  19.  
  20. Begin
  21.      ClrScr;
  22.      Write ( 'Enter mask: ' );
  23.      Readln ( Mask );
  24.      For K := -10 to 10 do
  25.           begin
  26.            Number := sqr ( sqr ( K ) * sqr (random ( K ) ) + random );
  27.            If odd ( K ) then
  28.               Number := -Number;
  29.           PrintUsing ( Mask, Number );
  30.           Writeln
  31.           end
  32. End.
  33.  
  34.